home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / basic-delirium (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  14.0 KB  |  252 lines
  1. 3 m=-1:poke808,227
  2. 4 m=m+1:forn=0to39:poke1024+m*40+n,32:nextn
  3. 5 m=m+1:forn=39to0step-1:poke1024+m*40+n,32:next:ifm<22then4
  4. 6 forn=0to39:poke1984+n,32:next:printchr$(142)
  5. 7 print"[147]"spc(11)"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] p a r e n t a l ";
  6. 8 print"[142][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][180][176][174][176][201][199][200][178][176][192][213][201][176][201][205]";
  7. 9 print"[206][167][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][180][171][179][221][221][200][199][221][183][208][221][221][171][179][167] [167][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][180][221][221][173][203][167][180][177][183][183][202][203][221][221]";
  8. 10 print"[167] [167][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] explicit ly";
  9. 11 print"rics [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  10. 13 a(0)=6:a(1)=4:a(2)=14:a(3)=1:a(4)=15:a(5)=12:a(6)=11:a(7)=0
  11. 14 form=0to7:poke53280,a(m):poke53281,a(m):fort=1to100:nextt:nextm:fort=0to999:nextt
  12. 15 form=0to24:poke55963-m,0:poke55924-m,0:poke55885-m,0:poke55846-m,0
  13. 16 poke55807-m,0:poke55768-m,0:poke55729-m,0:poke55690-m,0:poke55651-m,0:next
  14. 17 fort=1to300:next
  15. 19 print"[147][155]           [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"spc(19)"[176][192][192][192][192][192][201][213][192][192][201][213][192][192][192][192][192][201][213][192][192][192][154][192][192][201][155]"
  16. 20 print"       [221]  [221]  [221][221]  [221][221]  [221][160][160][221][221][160][160][221][160][154][160][221][155]"spc(15)"[221]  [221]  [221][221]  [221][221]  [171][192][192][179][221]  [176][192][192][154][179][155]"
  17. 21 print"       [150][221][155]  [221]  [221][221]  [221][221]  [221][160] [221][221]  [221]  [221]"spc(15)"[221][150] [155] [221]  [221][221]  [221][221]  [221]  [221][221]  [221]  [221]"
  18. 22 print"       [173][192][150][192][155][179]  [221][173][192][192][189][173][192][192][192][192][192][189][173][192][192][174]  [221]"spc(18)"[173][192][192][189][146]"spc(13)"[221][173][192][192][189]"
  19. 23 print"           [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  20. 24 [153]"poketab(tab(print#tab(tab(listtab(tab(tab(listtab(tab(print#tab(tab(poketab(tab(stop poketab(tab(print#tab(tab(listtab(tab(tab(listtab(tab(print#tab(tab(poketab(tab(stop poketab(tab(print#tab(tab(listtab(tab(tab(listtab(tab(print#tab(tab(poketab(";
  21. 25 [153]"       syswelcome to basic-delirium
  22. 26 print"[155][164][164][152][164][164][151][164][164][144] [151][164][164][152][164][164][155][164][164][164][155][164][164][152][164][164][151][164][164][144] [151][164][164][152][164][164][155][164][164][164][155][164][164][152][164][164][151][164][164][144] [151][164][164][152][164][164][155][164]"
  23. 27 form=0to3500:next
  24. 28 print"[145][145][145][145][145][145]               [176][153][192][192][192][192][192][192][192][192][174]               ";
  25. 29 form=1to8:print"               [221]        [221]               ";:next
  26. 30 print"               [173][192][192][192][192][192][192][192][192][189]              ":a$(0)=" "
  27. 31 a$(1)="[166] [157][157]  "
  28. 32 a$(2)="[166][166]  [157][157][157][157][166][166]  [157][157][157][157]    [157][157][157][157]    "
  29. 33 a$(3)="[191][191][191][191]    [157][157][157][157][157][157][157][157][191][191][191][191]    [157][157][157][157][157][157][157][157][191][191][191][191]    [157][157][157][157][157][157][157][157][191][191][191][191]    [157][157][157][157][157][157][157][157]"
  30. 34 a$(3)=a$(3)+"        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        "
  31. 35 a$(4)=" [146]  [146]  [146]  [146] [157][157][157][157][157][157][157][157]  [146]  [146]  [146]  [157][157][157][157][157][157][157][157] [146]  [146]  [146]  [146] "
  32. 36 a$(4)=a$(4)+"[157][157][157][157][157][157][157][157]  [146]  [146]  [146]  [157][157][157][157][157][157][157][157] [146]  [146]  [146]  [157][157][157][157][157][157] "
  33. 37 a$(4)=a$(4)+"[146]  [146]  [146]  [157][157][157][157][157][157][157][157] [146]  [146]  [146]  [157][157][157][157][157][157] [146]  [146]  [146]  "
  34. 39 form=1to8:forn=1to4:print""a$(n):fort=1to70
  35. 40 nextt:nextn:forn=3to0step-1:print""a$(n)
  36. 41 fort=1to70:nextt:nextn:nextm:goto44
  37. 42 print""spc(15)"[172][162][162][162][162][162][162][162][162][187]":print"[145]"spc(15):form=1to8
  38. 43 print"[161]        [146][161]"spc(30);:next:print"[188][162][162][162][162][162][162][162][162][146][190]":fort=1to100:next:return
  39. 44 print"[158]":gosub42:print"[155]":gosub42:print"[152]":gosub42:print"[151]":gosub42:print"[144]"
  40. 45 gosub42:print"[151]":gosub46:print"[152]":gosub46:print"[155]":gosub46:print"[158]":goto48
  41. 46 print""spc(16)"     [157][157][157][157]     [157][157][157][157][157][157]       [157][157][157][157][157][157][157]       ";
  42. 47 print"[157][157][157][157][157][157][157]       [157][157][157][157][157][157]     [157][157][157][157]   ":fort=1to200:next:return
  43. 48 gosub46:poke55874,14:poke55876,14:poke55954,0:poke55955,0:poke55956,0:goto58
  44. 49 poke55296,peek(55875):poke55875,peek(55876):poke55876,peek(55916)
  45. 50 poke55916,peek(55956):poke55956,peek(55955):poke55955,peek(55954)
  46. 51 poke55954,peek(55914):poke55914,peek(55874):poke55874,peek(55296):return
  47. 53 poke55297,peek(55835):poke55835,peek(55836):poke55836,peek(55877)
  48. 54 poke55877,peek(55917):poke55917,peek(55957):poke55957,peek(55996)
  49. 55 poke55996,peek(55995):poke55995,peek(55994):poke55994,peek(55953)
  50. 56 poke55953,peek(55913):poke55913,peek(55873):poke55873,peek(55834)
  51. 57 poke55834,peek(55835):poke55834,peek(55297):return
  52. 58 form=1to8:gosub53:gosub49:gosub53:gosub49:gosub53:nextm
  53. 59 print"[152]        this  [176][178][178][192][178][192][178][174][176][201][213][178][192][192][178][192][201]"
  54. 60 print"[145]        is    [221][176][179][221][221][221][221][221][221][173][219][179][221][221][221][221][221]":print"        really[221][221][221][176][179] [221][221][221][176][179][221][221][221][221][176][179]"
  55. 61 print"        [213][201][213][201][213][201][221][221][221][221][221][221][221][171][179][171][179][221][221][221][221][221][221]":print"        [202][203][202][203][202][203][173][203][202][192][177][177][177][192][177][192][177][177][177][177][177][192][203]"
  56. 62 fort=1to400:nextt:poke55915,2:poke55874,0:poke55834,0:poke55836,0
  57. 63 poke55876,0:poke55953,1:poke55994,1:poke55995,1:poke55996,1:poke55957,1
  58. 64 poke55954,7:poke55955,7:poke55956,7:fort=1to2000:nextt:form=1to8:gosub53
  59. 65 gosub49:gosub53:gosub49:gosub53:next:fort=1to2000:nextt
  60. 67 form=0to8:forn=oto22:poke1784+(n*9)+m,32:nextn:nextm:fort=1to1000:nextt:goto69
  61. 68 forz=1to100:nextz:return
  62. 69 poke55795,0:gosub68:poke55794,0:gosub68:poke55833,0:gosub68:poke55872,0
  63. 70 gosub68:poke55912,0:gosub68:poke55952,0:gosub68:poke55993,0:gosub68
  64. 71 poke56034,0:gosub68:poke56035,0:gosub68:poke56036,0:gosub68:poke55997,0
  65. 72 gosub68:poke55958,0:gosub68:poke55918,0:gosub68:poke55878,0:gosub68
  66. 73 poke55837,0:gosub68:poke55796,0:gosub68:gosub68
  67. 74 form=1to4:poke55835,0:gosub53:poke55875,0:gosub49
  68. 75 poke55835,0:gosub53:poke55875,0:gosub49:poke55835,0:gosub53:nextm:fort=1to200
  69. 76 nextt:form=0to28:poke55331-m,0:poke55370-m,0:poke55409-m,0:poke55448-m,0
  70. 77 poke55487-m,0:poke55528-m,0:poke55569-m,0:poke55610-m,0:poke55651-m,0
  71. 78 fort=1to20:nextt:nextm:poke55915,0:poke55875,2:fort=1to300:nextt
  72. 79 poke55835,2:poke55875,0:fort=1to300:nextt:poke55795,2:poke55835,0:fort=1to800
  73. 80 nextt:print""spc(18)"   [157][157][157]   [157][157][157]   ":fort=0to300:next
  74. 81 print"[147]":form=1to7:printspc(16)"       ":next:fort=0to300:next
  75. 82 print"":form=1to11:printspc(14)"           ":next:fort=0to300:next
  76. 83 print"":form=1to15:printspc(12)"               ":next:fort=0to300:next
  77. 84 print"":form=1to19:printspc(10)"                   ":next:fort=0to300:next
  78. 85 poke53281,2:fort=0to300:next:poke53280,2:print"[147]";:form=1to2
  79. 86 print"          [146]      [146]    [146]           [146]      [146]   ";:next:form=1to3
  80. 87 print"      [146]    [146]      [146]    [146]       [146]    [146]      [146]   ";:next
  81. 88 print"          [146]      [146]    [146]           [146]     [146][169]  [169]";
  82. 89 print"[146]        r [146]      [146]    [146]    htquar [146]       [169] ";
  83. 90 print"[146]          [146]      [146]    [146]           [146]       [223] ";
  84. 91 print"[146]          [146]      [146]    [146]           [146]     [223][146]  [223]";:form=0to7
  85. 92 print"[146]          [146]      [146]    [146]           [146]      [146]   ";:next:form=0to5
  86. 93 print"[146]          [146]      [146]    [146]       [146]    [146]      [146]   ";:next
  87. 94 print"[146]          [146]          [146]           [146]      [146]   ";:poke53281,0
  88. 95 print"[146]          [146]          [146]           [146]      [146]";:fort=1to2000:next
  89. 96 form=1to500:poke53281,0::::::::::::::poke53281,1:nextm:form=1to500
  90. 97 poke53281,0::::::::::::::poke53281,2:nextm:print"[147][155]":fort=1to1000:nextt
  91. 98 a(0)=2:a(1)=10:a(2)=15:a(3)=1:a(4)=12:a(5)=11:a(6)=0
  92. 99 form=0to6:poke53280,a(m):poke53281,a(m):fort=1to100:nextt:nextm:fort=0to999:next
  93. 100 print"[147]":a$="           [194]asic-[196][197][204][201][210][201][213][205]":form=1to26:print" "mid$(a$,27-m,1)
  94. 101 fors=200to207:poke53270,s:fort=0to27:nextt:nexts
  95. 102 poke53270,200:print" [148]":nextm:fort=1to300:next:print""spc(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  96. 103 print"[152]"chr$(34):print"[158][201]ch interessiere mich mehr fuer"
  97. 104 print"     [208]erverse als fuer [200]eilige. [201]ch
  98. 105 [153]"     kann relaxen in chr$esellschaft von
  99. 106 print"     [208]ennern, denn ich bin selber
  100. 107 [153]"     einer. right$ch habe nichts uebrig
  101. 108 print"     fuer [199]esetze, [205]oral, [210]eligion,
  102. 109 [153]"     (NULL)orschriften. right$ch mag mich nicht
  103. 110 print"     von der [199]esellschaft trimmen
  104. 111 [153]"     lassen.print#"[199](34)
  105. 112 [153]""[166]16)"list(len.peekukowski, aus "[199](34)"(NULL)umm"[199](34)")"
  106. 114 [153]"    stop       pokewait^stop       pokewait^stop       pokewait^stop       pokewait^"
  107. 115 [153]"    stop   pokewaitorstop   pokewait(NULL)stop   pokewaitorstop   pokewait(NULL)stop   pokewaitorstop   pokewait(NULL)/tanstop   pokewaitortanexp"
  108. 116 [153]"    stop   pokewait(NULL)/tantanexpstop   pokewait(NULL)stop   pokewait(NULL)stop       pokewait(NULL)  stop   pokewait(NULL)"
  109. 117 [153]"    stop   pokewait(NULL)stop   pokewait^stop   pokewait(NULL)stop   pokewait(NULL)stop   pokewaitorstop   pokewait(NULL)  stop   pokewait(NULL)"
  110. 118 [153]"    stop   pokewait(NULL)stop   pokewait(NULL)stop   pokewait(NULL)stop   pokewait(NULL)stop   pokewait(NULL)stop   pokewait(NULL)  stop   pokewait(NULL)"
  111. 119 [153]"    stop       pokewait(NULL)stop       pokewait(NULL)stop   pokewait(NULL)stop   pokewait(NULL)  stop   pokewait(NULL)"
  112. 120 [153]"    /tantantanstop   pokewait(NULL)/tantantantantantanexp/tantanexp/tantanexp  /tantanexp"[166]14)"stop   pokewait(NULL)"[166]36)"/tantanexp
  113. 121 form=1to104:readd:data 11,,,,,,,,,,,11,11,12,15,1,15,12,11,11,,,,,,,,,,,,
  114. 122 data2,2,7,7,2,2,7,7,2,2,7,7,2,2,7,7,2,2,7,7,,,,,,,,,,,,2,2,10,7,5
  115. 123 data13,14,6,4,4,,,,,,,,,,,11,,,,,,,,,,,,,,,,,,,,
  116. 148 a=peek(56104):poke56186,a:poke56185,a:poke56184,a:poke56144,a:poke56102,a
  117. 149 poke56101,a:poke56100,a
  118. 150 a=peek(56106):poke56146,a:poke56145,a:poke56104,a:poke56103,a:poke56062,a
  119. 151 poke56061,a:poke56060,a:poke56021,a:poke56020,a
  120. 152 a=peek(56108):poke56106,a:poke56105,a:poke56065,a:poke56064,a:poke56022,a
  121. 153 poke55982,a:poke55981,a:poke55980,a:poke55941,a:poke55940,a
  122. 154 a=peek(56110):poke56108,a:poke56066,a:poke56026,a:poke56025,a:poke56024,a
  123. 155 poke55942,a:poke55901,a:poke55900,a
  124. 156 a=peek(56111):poke56110,a:poke56109,a:poke56069,a:poke56068,a:poke56028,a
  125. 157 poke55946,a:poke55945,a:poke55944,a:poke55905,a:poke55904,a:poke55903,a:poke55902,a
  126. 158 a=peek(56112):poke56111,a:poke56070,a:poke56029,a:poke55989,a:poke55988,a
  127. 159 poke55948,a:poke55906,a
  128. 160 a=peek(56113):poke56112,a:poke56030,a:poke55990,a:poke55949,a:poke55909,a
  129. 161 poke55908,a
  130. 162 a=peek(56114):poke56113,a:poke56072,a:poke56032,a:poke55992,a:poke55950,a
  131. 163 poke55910,a:poke55911,a
  132. 164 a=peek(56034):poke55912,a:poke55952,a:poke55953,a:poke55993,a:poke56033,a
  133. 165 poke56073,a:poke56074,a:poke56114,a
  134. 166 a=peek(56036):poke55913,a:poke55914,a:poke55954,a:poke55994,a:poke56034,a
  135. 167 a=peek(56116):poke56036,a:poke55996,a:poke55956,a:poke55916,a:poke55917,a
  136. 168 a=peek(56117):poke56116,a:poke56076,a:poke56077,a:poke56037,a:poke55997,a
  137. 169 poke55957,a:poke55958,a:poke55918,a
  138. 170 a=peek(56118):poke56117,a:poke56078,a:poke56038,a:poke55998,a:poke55999,a
  139. 171 poke55919,a:poke55920,a:poke55960,a
  140. 172 a=peek(56080):poke56118,a:poke56040,a:poke56000,a:poke55961,a:poke55921,a
  141. 173 poke55922,a:a=peek(56120):poke56080,a:poke56041,a
  142. 174 poke56001,a:poke56002,a:poke55962,a:poke55924,a
  143. 175 a=peek(56122):poke56120,a:poke56121,a:poke56081,a:poke56082,a:poke55966,a
  144. 176 poke55967,a:poke55926,a:poke55927,a:poke55928,a:poke55925,a:poke56042,a
  145. 177 a=peek(56086):poke56122,a:poke56046,a:poke56006,a:poke56007,a:poke55968,a
  146. 178 poke55929,a:poke55930,a:a=peek(56126):poke56086,a:poke56087,a:poke56047,a
  147. 179 poke56048,a:poke56008,a:a=peek(56128):poke56126,a:poke56127,a:poke56088,a
  148. 180 poke56128,d:nextm:m=2
  149. 181 poke53265,0:fort=0tom:nextt:poke53265,27:fort=0to(200-m):nextt
  150. 182 m=m+10:ifm<300then181
  151. 184 poke53265,0:print"[147]":fort=0to999:next
  152. 185 printspc(11)"[151][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  153. 186 form=1to2:printspc(11)"[161][144]                [146][151][161]":next
  154. 187 printspc(11)"[161][144]     [144]        [144]   [146][151][161]
  155. 188 [153][166]11)"getstop      stop       stop   waitpokeget
  156. 189 printspc(11)"[161][144]       [144]      [144]   [146][151][161]
  157. 190 [153][166]11)"getstop     stop   stop     stop   waitpokeget
  158. 191 printspc(11)"[161][144]     [144]    [144]    [144]   [146][151][161]
  159. 192 [153][166]11)"getstop     stop     stop   stop   waitpokeget
  160. 193 printspc(11)"[161][144]     [144]        [144]   [146][151][161]
  161. 194 [153][166]11)"getstop     stop        stop   waitpokeget
  162. 195 form=1to4:printspc(11)"[161][144]     [144]        [144]   [146][151][161]":next
  163. 196 form=1to2:printspc(11)"[161][144]                [146][151][161]":next
  164. 197 printspc(11)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  165. 198 poke53265,27:fort=0tom:nextt:poke53265,0:fort=0to(200-m):nextt
  166. 199 m=m+10:ifm<300then198
  167. 200 poke53265,27:fort=0to999:nextt:forx=0to7:fory=0to7
  168. 201 gosub204:poke1196+y*40+x,160:gosub206:poke1811-y*40-x,160
  169. 202 gosub208:poke1211+x*40-y,160:gosub210:poke1796-x*40+y,160:nexty:nextx
  170. 203 fort=0to999:nextt:goto212
  171. 204 ifpeek(1196+y*40+x)=160thenpo=(55468+y*40+x):pokepo,peek(po)+1
  172. 205 return
  173. 206 ifpeek(1811-y*40-x)=160thenpo=(56083-y*40-x):pokepo,peek(po)+1
  174. 207 return
  175. 208 ifpeek(1211+x*40-y)=160thenpo=(55483+x*40-y):pokepo,peek(po)+1
  176. 209 return
  177. 210 ifpeek(1796-x*40+y)=160thenpo=(56068-x*40+y):pokepo,peek(po)+1
  178. 211 return
  179. 212 forx=0to9:fory=0to9:gosub215:poke1196+y*40+x,160:gosub217:poke1811-y*40-x,160
  180. 213 gosub219:poke1211+x*40-y,160:gosub221:poke1796-x*40+y,160:nexty:nextx
  181. 214 fort=0to1500:nextt:goto223
  182. 215 ifpeek(1196+y*40+x)=160thenpo=(55468+y*40+x):pokepo,peek(po)+2
  183. 216 return
  184. 217 ifpeek(1811-y*40-x)=160thenpo=(56083-y*40-x):pokepo,peek(po)+3
  185. 218 return
  186. 219 ifpeek(1211+x*40-y)=160thenpo=(55483+x*40-y):pokepo,peek(po)+1
  187. 220 return
  188. 221 ifpeek(1796-x*40+y)=160thenpo=(56068-x*40+y):pokepo,peek(po)+4
  189. 222 return
  190. 223 forx=0to7:fory=0to7:gosub229:poke1196+y*40+x,160:gosub231
  191. 224 poke1811-y*40-x,160:gosub233:poke1211+x*40-y,160:gosub235
  192. 226 poke1796-x*40+y,160:nexty:nextx
  193. 228 goto237
  194. 229 ifpeek(1196+y*40+x)=160thenpo=(55468+y*40+x):pokepo,0
  195. 230 return
  196. 231 ifpeek(1811-y*40-x)=160thenpo=(56083-y*40-x):pokepo,0
  197. 232 return
  198. 233 ifpeek(1211+x*40-y)=160thenpo=(55483+x*40-y):pokepo,0
  199. 234 return
  200. 235 ifpeek(1796-x*40+y)=160thenpo=(56068-x*40+y):pokepo,0
  201. 236 return
  202. 237 form=1to4:print"";:forn=1tom:print"";:nextn
  203. 238 printspc(11)"                  ":printspc(11)"[151][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  204. 239 printspc(11)"[161][146]                [161]"
  205. 240 printspc(11)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  206. 241 forz=1to200:nextz:nextm
  207. 242 form=1to12:print"":forz=1to60:nextz:nextm:print"[151][147]":fort=0to300:nextt
  208. 243 a(0)=11:a(1)=12:a(2)=15:a(3)=1:a(4)=15:a(5)=12:yy=25:xx=37:yq=-1
  209. 244 form=0to5:poke53280,a(m):poke53281,a(m):fort=1to110:nextt:nextm:fort=1to80
  210. 245 nextt:poke53280,11:xr=1:yr=1:x=3:y=-1:z=0:xq=-1:fort=1to300:nextt
  211. 246 z=z+1:x=x+xr:y=y+yr:xx=xx+xq:yy=yy+yq:ifx=39thenxr=-1
  212. 247 ifx=0thenxr=1
  213. 248 ify=24thenyr=-1
  214. 249 ify=0thenyr=1
  215. 250 ifxx=39thenxq=-1
  216. 251 ifxx=0thenxq=1
  217. 252 ifyy=24thenyq=-1
  218. 253 ifyy=0thenyq=1
  219. 254 poke1024+y*40+x,160:poke1024+yy*40+xx,160
  220. 255 ifz<193then246
  221. 256 poke53280,12:fort=1to80:nextt
  222. 257 form=5to0step-1:poke53280,a(m):poke53281,a(m):fort=1to110:nextt:nextm
  223. 258 print"[155][147]":fort=1to110:nextt:poke53280,0:poke53281,0:a$="[130]asic[160][132]elirium"
  224. 259 form=1to14:forn=24to0step-1
  225. 260 poke1024+n*40+m-1,asc(mid$(a$,m,1))-64
  226. 261 ifn<24thenpoke1024+(n+1)*40+m-1,32
  227. 262 next:next
  228. 263 f$(2)="[151]":f$(5)="[152]":f$(3)="[155]":f$(4)="":f$(1)="[144]":a$(2)="   [157][157][157]   [157][157][157]   "
  229. 264 a$(1)="  [157][157]  ":a$(4)="     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     "
  230. 265 a$(3)="    [157][157][157][157]    [157][157][157][157]    [157][157][157][157]    "
  231. 266 w=w+1:a=rnd(0)*5:x=rnd(0)*36:y=rnd(0)*19:f=f+1:iff=6thenf=1
  232. 267 print"[194]asic [196]elirium"left$("",y+1)spc(x)f$(f)a$(a)
  233. 268 ifw<300then266
  234. 269 print"[155][194]asic [196]elirium":fort=0to300:nextt:form=1to23step2:poke781,m
  235. 270 sys59903:fort=1to150:nextt:nextm:form=24to0step-2:poke781,m:sys59903
  236. 271 fort=1to150:nextt:nextm:fort=1to400:next:poke53272,30
  237. 272 print"[147][144]:;<=>     [146]     [146]    [223][146]         [146]  [146]   [146] :;<=>";
  238. 273 print"[215][216][217][218][219]  [146]   [146]  [146]  8[146]  [146]   [146]   [146]   [146]  9[146] [223][223]3[146][169] [215][216][217][218][219]";
  239. 274 print"[180] [182][183][184]     [146]  [146]       6[146]    [146]   [146]    56[146]  [180] [182][183][184]";
  240. 275 print"qrstu[146]  [146]   [146]  [146]  3[146]  [146]   [146]  8[146]   [146]  3[146] 3[146][169][223][223][146] qrstu";
  241. 276 print"./012[146] 7[146]  7[146] 7[146]  7[146] 7[146]  7[146]     7[146]  7[146] 7[146]  7[146] ./012";
  242. 277 print"[203][204][205][206][207][146]  [146]   [146]  [146]   [146]  [146]   [146]      [146]   [146]  [146]   [146] [203][204][205][206][207]";
  243. 278 print"[168][169][170][171][172][146] 9[146]  8[146] [223]   [146] 8[146]  9[146]     [223]   [146] 9[146]  8[146] [168][169][170][171][172][146][176][192][192][192][192][192][192][192][201][213]";
  244. 279 print"[192][192][192][192][192][192][201][176][192][192][192][192][192][192][201][192][192][192][178][192][192][192] [204][175][175][175][175][175][186][171][192][192][192][192][192][192][192][203][171][192][192][192][192][192][192][179][171][192][192][192][192][192][192][179]   [221]    [175][175][175][175][175][175][186]"
  245. 280 fort=0to400:nextt:form=0to34:readw:poke55296+w,1:poke55575-w,1:next
  246. 281 fort=0to39:poke55576+t,15:poke55616+t,15:next
  247. 282 fort=0to28:form=0to4step2:poke55302+m*40+t,1:poke55341+m*40+t,1:nextm
  248. 283 poke55541+t,1:next
  249. 284 data0,1,2,3,4,44,84,124,164,204,244,243,242,241,240,200,160,120,80
  250. 285 data40,41,42,43,83,123,163,203,202,201,161,121,81,82,122,162
  251. 286 load"part2",8
  252.